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MUSICA EM 
SEU MICRO 



NOTAS E ESCALAS 



TONS E SEMITONS 



PEQUENAS MELODIAS 



TRA NSFORM Q CO MPUTADOR 
NUM ORGAQ MUSICAL 



Bach ou Beethoven? Pink Floyd ou The 
Cure? Seja qual for a sua escolha 
musical, voce pode tornar se um otimo 
instrumentista, dedilhando 
o teclado de um mtcrocomputador. 
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Com excecao do Apple, todos os mi- 
crocomputadores mencionados neste ar- 
tigo contam com algum tipo de coman- 
docapaz de produzir sons. O funciona- 
.nento de comandos sonoros, alias, ja 
foi explicado anteriormentc em Quebre 
aBarreirado Som (pagina 168). Um ar- 
tigo posterior — Apple e TK-2000: Efei- 
tos Sonoros — abordou o funcionamen- 



to de uma rotina em codigo de maqui- 
na, que sera utilizada no programa des- 
te artigo; ela permite que os micros des- 
sas linhas produzam sons. 

De um modo geral, e possivel selecio- 
nar lanto a tonalidade como a duracao 
da nota emitida. No MSX e no TRS- 
Color, outros parametros tambem po- 
dem ser modificados. 



A forma de produzir sons por meio 
de um programa em BASIC varia de 
computador para computador. No 
MSX, podemos tocar ate tres notas ao 
mesmo tempo, o que possibilita a exe- 
cucao de acordes musicais. Os demais 
produzem s6 uma nota por vez. O MSX 
permite que controlemos outros para- 
metros essenciais para certas aplicacoes. 



H 




Nenhuma dessas diferencas e relevan- 
te no momento. De fato, melodias sim- 
ples podem ser executadas em qualquer 
um dos cinco computadores abordados 
neste aitigo, que pretende ser apenas um 
guia para principiantes. Comegaremos 
com algumas nocoes de teoria musical, 
necessarias a compreensSo do progra- 
ma, que trans forma parte do teclado de 
seu micro em um instrumento simples. 
Em artigo posterior, veremos de que 
maneira tirar maior proveito dos recur- 
sos musicals do computador. 

Antes de iniciar, devemos explicar o 
significado de dois termos fundamen- 
tals. O primeiro deles e a expressao "al- 
tura", que aqui quer dizer o mesmo que 
torn ou tonalidade. Ele permite classifi- 
car as notas musicals em graves e agu- 
das. Assim, uma nota mais aha que ou- 
tra sera mais aguda que ela; uma nota 
mais baixa sera mais grave. O segundo 
termo, "intervalo", indica a disi&ncia 
musical entre duas notas de tonalidade 
diferente. 



UMA ESCALA SIMPLES 



Uma escala e uma serie ascendente de 
notas musicais, cada uma mais alia que 
a anterior, Embora em computa?ao se- 
ja tecnicamente melhor recorrer a letras 
do alfabeto — de A a G — para desig- 
nar as notas (como acontece na Europa 
e nos Estados Unidos), o sistema ado- 
tado no Brasil emprega os nomes tradi- 
cionais — d6, re, mi, fi, sol, la, si. As- 
sim, uma escala come?a com do e vai 
"subindo" at£ o pr6ximo d6, num to- 
tal de oito notas. 

Essa escala *'d6-r^-mi" 6 chamada de 
"escala maior 1 " , Ela 6 definida por uma 
relacfio musical entre as notas. Assim, 
qualquer seqiiSncia de notas com o mes- 
mo padrao de intervalos musieais entre 
si e" uma "escala maior". 



E AS TECLAS PRETAS? 



As teclas brancas de um piano cor- 
respondem as notas (letras) A, B, C, D, 
E.FcG, num ciclo que se repete pelo 
teclado afora — C e d6, D e re\ F 6 mi 
etc. A "escala maior" corresponde a oi- 
to teclas, comecando num C e tercrtinan- 
do no proximo C. Essa escala e deno- 
minada escala de "C maior", por mo- 
tivos 6bvios. Como dissemos antes, uma 
"escala maior" pode iniciar-se em qual- 
quer tonalidade, mas a escala de "C 
maior" deve comecar necessariamente 
num C, que tem uma altura especifka. 
A escolha dessa letra como primeira no- 
ta fixa a tonalidade da escala. 
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Para que servem entao as teclas pre- 
tas do teclado? Acontece que a "escala 
maior" nao content todas as notas pos- 
siveis entre a primeira e a ultima letras. 
Entre do e re, por exernplo, existe uma 
nota que nao pertence a "escala maior"; 
o raesmo ocorre com outros pares de no- 
tas. As teclas pretas correspondent a esse 
tipo de som intermediario. Assim, a te- 
cla preta entre C e D (d6 e re em "C 
maior") € chamada de C sustenido ou 
D bemol ("sustenido" significa mais al- 
to e "bemol", mais baixo), conforme 
usemos a nota acima ou abaixo dela co- 
mo referenda. 

A nota entre D e E e D sustenido ou 
E bemol, e assim por diante. Note que 
nao ha tecla preta entre E e F (mi e fa 
em "C maior'*) nem entre B e C (si e 
do em "C maior"). 

O intervalo existente entre duas teclas 
vjzinhas (mesmo que elas tenham cores 
diferentes) e chamado de semitom, de 
maneira que os intervales entre C e C 
sustenido, C sustenido e D e entre E e 
F sao todos semitons. Urn intervalo que 
contenha dois semitons e denominado 
torn "inteiro". 

O arranjo de tons e semitons que de- 
finem uma escala maior e: 

dois semitons = urn torn entre d6 e re 
(C e D em "C maior"), 

dois semitons = urn torn entre re e mi 
(D e E era "C maior") 

urn semitom entre mi e fa (E e F em "C 
maior"). 

dois semitons = urn torn entre fa e sol 
(Fe G em "C maior"). 

dois semitons = um torn entre sol e la 
(G e A em "C maior"). 

dois semitons = um torn entre la e si (A 
e B em "C maior"). 

um semitom entre si e do (B e C em "C 
maior"). 



OUTRAS ESCALAS MAIORES 



Segundo o que foi exposto, existem 
doze semitons entre o primeiro e o se- 
gundo do de uma "escala maior" (to- 
tal de oito notas). 

Suponhamos agora que precisamos 
de uma "escala maior" em outra tona- 
lidade — comecando em G, por exern- 
plo. Nela , G seria do e A serta re; mas, 
se tocassemos as seis teclas seguintes, o 
arranjo de intervalos n&o seria o de uma 
"escala maior*': os intervalos entre la e 



si, e si e d6 nao estariam corretos. Para 
obtermos uma "escala maior" verdadei- 
ra, F deve ser substitufdo por F susteni- 
do (ou si, em nossa nova escala), resta- 
belecendo o padrao correto de interva- 
los. Para entender melhor, estude o dia- 
grama da pagina anterior ou use um te- 
clado de verdade. 

Uma "escala maior" comecando em 
F seria entao: F, G, A, B bemol, C, D, 
E e F. (B deve ser bemol, caso contra- 
rio a nota fa e os intervalos mi-fa e fa- 
sol estarao errados). 

Podemos obter uma "escala maior" 
comecando em qualquer nota, desde que 
respeitemos o arranjo de intervalos. Mas 
quaiquer escala nao iniciada em C de- 
vera usar uma ou mais teclas pretas: 
apenas a escala "C maior" usa so teclas 
brancas. Fica explicado porque ela e tao 
popular: e mais facil tocar usando so as 
teclas brancas. 

Muitas musicas simples — como can- 
tigas de ninar, musicas folcloricas e al- 
guns hinos — podem ser tocadas na es- 
cala maior. A cancao Tres Ratinhos Ce- 
gos t por exernplo, comeca assim: 

mi, re, d6 
mi, re, d6 
sol, fa, fa, mi 
sol, fa, fa, mi.., 

e as primeiras notas de Atirei o Pau no 
Gato sao: 

sol, la, mi, re, mi, fa, sol, sol, 
sol, fa, sol, Id, 14, la, 
sol, la, mi, mi, mi... 

Escrevemos aqui apenas as tonalida- 
des; o ritmo fica por coma do leitor. S6 
com notacao musical — um tema que 
nao abordaremos agora — poderfamos 
transmitir a informacao completaa res- 
peito da melodia — altura, ritmo, inten- 
sidade, entre outras coisas. 

Musicas mais complexas nao poderao 
ser executadas somente com as teclas 
brancas. Geralmente, comecamos em 
uma escala e, com o desenvolvimento da 
musica, passamos temporariamente pa- 
ra outras escalas, usando notas que nao 
aparecem na primeira. 

Veja, por exempio, o caso de Yester- 
day, musica composta por John Lennon 
e Paul McCartney que se tornou um dos 
grandes sucessos dos Beatles: 

re, dd, dd, mi, f4, fa sustenido, sol sus- 
tenido, la, si, do, si, Id, la... 

Essas notas, estranhas a escala origi- 
nal, sao um requinte; elas dSo um to- 
que especial a muitas melodias. 



BEMOIS OU SUSTENIDOS? 



Por que se usa o termo "sustenido" 
(em F sustenido) na escala "G maior", 
e "bemol" (em B bemol) na escala "F 
maior"? Afinal, F sustenido e G bemol 
correspondent a mesma tecla preta. Por 
que nao usar s6 um dos termos, deixan- 
do o outro de lado? Quern tentar criar 
novas "escalas maiores*' — comecando 
em notas diferentes de C — tera a res- 
posta. Na verdade, os dois termos sao 
neeessarios para garantir que, em qual- 
quer escala, cada nota seja representa- 
da por uma letra diferente. Assim, a 
substituicao do B bemol da escala "F 
maior" por A sustenido, resuitaria em: 
F, G, A, A sustenido, C, D, E e F. Em 
tal seqiiencia de notas aparecem dois A 
e nenhum B, o que pode gerar confusao. 

Da mesma maneira, a substituicao de 
F sustenido por G bemol em "G 
maior", resuitaria em uma escala com 
dois G e nenhum F. Ja o emprego de be- 
m6is no lugar de sustenidos, ou vice- 
versa, e tao deselegante como erros de 
ortografia em um texto. Programas pa- 
ra compor musica que usem s6 bemdis 
— ou sustenidos — , com a justificativa 
de que C sustenido i igual a D bemol, 
deixam" muito a desejar. 



FREQUENCIA E INTERVALOS 



Som e o efeito produzido pelas vibra- 
coes no ar, Quanto mais rapidamente es- 
tas se repetirem, ou quanto maior for 
sua frequencia, mais aguda sera a nota 
correspondente. A unidade usada para 
exprimir freqiiSncia e cps (ciclos por se- 
gundo) ou Hz (hertz, que significa a 
mesma coisa), 

Se tomarmos a nota C, cuja freqiiSn- 
cia e igual a 256 Hz, e dobrarmos esse 
valor, obteremos outra nota G uma oi- 
tava acima da primeira — mais aguda, 
ponanto (uma oitava e o intervalo entre 
o dd mais baixo e o dd mais alto). Do- 
brando novamente o valor da frequen- 
cia, cle passarade 512 para 1024 Hz, que 
eorresponde a pr6xima nota C — uma 
oitava acima da anterior. Desse modo, 
quando multiplicamos a frequSncia de 
uma nota, adicionamos a ela um inter- 
valo musical. 

Ja vimos que ha doze semitons em 
uma oitava (treze teclas, oito brancas e 
cinco pretas, com doze semitons entre 
si). Se, dobrando a freqiiencia, subimos 
uma oitava, por que fator devemos muJ- 
tiplicar a freqiiSncia de uma nota para 
subir um semitom? No caso de uma oi- 
tava acima, temos a equacao: 



freqiiencia da noca x 2 = freqiiencia da 
nota uma oitava mais aha. 

Chamamos de X o fator necessirio 
para subir um semitom. Teremos entao: 

freqiiencia da nota 

xXxXxXxXxXxXxXxXxXxXxXxX = 
freqiiencia da nota uma oitava mais alta. 

*x*x*x*x*x»x*x*x»x*x*x*x = 

O numero que divide a razao 2: 1 em 
doze partes iguais e a decima segunda 
raiz de 2 (para calcular esse vaior em 
BASIC, use a expressao 2T<1/12)>. Se 
multiplicarmos 256 por esse valor, ob~ 
teremos a nota um semitom mais alta. 
Uma nova multiplicacao adiciona mais 
um semitom. Se repetirmos o processo, 
ap6s doze multiplicacSes consecutivas, 
chegaremos a freqiiencia da oitava se- 
guinte. Por tudo isso, a decima segun- 
da raiz de dois e uma constante funda- 
mental da musica. 



MELODIAS NA ESCALA MAIOR' 



Se quisermos tocar uma musica usan- 
do o programa do final deste artigo. te- 
remos que adivinhar qual nota £ d6, 
qual e re, e assim por diante. A questao 
e: como tocar "de ouvido"? 

Existira algum metodo para fazer 
com que a musica possa ser tocada so- 
mente nas teclas brancas, facilitando sua 
execugao? Neste caso tambem, um ca- 
minho possivel e descobrir qua! nota da 
musica e um d6, deduzindo, a partir daf , 
as posicSes das demais notas. Ivluitas 
melodias comecam ou terminam com es- 
sa nota; alem disso, o d6 acaba fuitcto- 
nando como o "centro de gravidade" 
de cert as musicas simples. Uma vez en- 
contrada, essa nota nos servira de guia, 
e, com um pouco de sorte, descobrire- 
mos as outras, Teate tocar a musica des- 
de o inicio, nota por nota; preste muita 
atencao no que estiver ouvindo, procu- 
rando perceber se a tonalidade esta su- 
bindo ou descendo naquele ponto e se 
a nota seguinte se encontra na tecla vi- 
zinha, ou mais alem. 

Se nos enganarmos sobre qual e a no- 
ta do, algumas notas parecerao muito 
graves ou muito agudas e teremos de 
procurar o do "certo". Com paciencia 
e perseveranca, porem, qualquer um po- 
de desenvolver uma especie de "intui- 
cao musical" e alguns serao capazes de 
tocar musicas inteiras no teclado de um 
microcomputador. 

Para faciliiar o trabalho dos princi- 
piantes, contudo, este artigo menciona 
as notas de algumas melodias mais ou 
menos conhecidas. 




I\ assim que o diagram a do teclado aparece 
na tela dos micros da linha TRS-Color. 



UM TECLADO MUSICAL 



Os programas a seguir transformam 
a parte superior do teclado do seu com- 
putador em um pequeno 6rgao. As le- 
tras Q, W, E, R, T, Y, U, I serao as no- 
tas do, re, mi etc. As teclas da direita 
avaneam na oitava seguinte. As teclas 
2, 3, 5, 6, 7 funcionam como as teclas 
pretas do piano. Um diagrama de seu te- 
clado fica mais ou menos assim: 

2 3 5 6 7 etc. 
QWERTYUI etc. 

d r m f s 1 s d 
6 e i a o a i 6 

O programa coloca na tela um dia- 
grama semelhante para orientar o tecla- 
dista. Alem disso, quando forem toca- 
das as notas da primeira oitava da "es- 
cala maior", seus nomes aparecerao 
num canto do video. 

Digite a seguir o programa especifi- 
co para o seu micro e siga as instrucoes 
que o acompanham para se tornar um 
"virtuose". 



O programa do Spectrum transforma 
as duas linhas superiores do teclado em 
um 6rgao. Para ouvir uma nota, basta 
pressionar a tecla correspondente. 

A Iistagem comeca estabelecendo os 
valores das variaveis que correspondem 
a duracao das notas, ao endereco do la- 
co principal (guardado na variavel loop, 
para economizar memoria), e a coorde- 
nada x do comando PRINT AT, usado 
para impressao das notas na tela. Ela 
continua selecionando as cores da tela, 
e entra a seguir na porcao responsavel 
pela producao de sons, 

A variavel loop contem o numero da 
linha para o qual o programa retornara 



ap6s executar uma nota; ele aguardara 
entao que voce pressione a tecla seguin- 
te. Quando isso acontecer, o cddigo do 
caractere correspondente sera colocado 
na varidvel nota, com o auxilio do co- 
mando CODE. 

O computador ira entao para a linha 
cujo numero esta em nola, Os numeros 
de linha correspondem aos codigos das 
teclas usadas (de48 a 121). O comando 
SOUND em cada uma dessas linhas e 
ajustado para tocar a nola correspon- 
dente a tecla (Q, por exemplo, corres- 
ponde a do). Se consuharmos o manual 
— ou o artigo Quehre a Barreira do Som 
— , veremos que o primeiro numero 
apos SOUND corresponde a duracao da 
nota (aqui representada pela variavel d) 
e o segundo, a tonalidade. 

Quando a tecla apertada for de uma 
nota da "escala maior", o nome de<,ia 
tambem sera impresso na tela, pela mes- 
ma linha que a executa. 

Depois de emitir o som, o computa- 
dor retorna a linha 1000, onde espera 
uma nova tecla ser pressionada. 



1 


GOTO 9QQ 






47 


GOTO loop 






46 


SOUND d,15 


: GOTO loop 




50 


SOUND d.l: 


GOTO loop 




51 


SOUND d , 3 : 


GOTO loop 




53 


SOUND d,6: 


GOTO loop 




54 


SOUND d,6: 


GOTO loop 




55 


SOUND d.10 


; GOTO loop 




57 


SOUND d,13 


: GOTO loop 




101 


PRINT AT y 


,X;"MI": SOUND 


d 


.4: 


GOTO loop 






105 


PPINT AT y 


,x;"DO": SOUND 


J 


,12 


GOTO loop 






111 


SOUND d.14 


■ GOTO loop 




112 


SOUND d,16 


■ GOTO loop 




113 


PRINT AT y 


,x;"DO": SOUND 


d 


.0: 


GOTO loop 






114 


PRINT AT y 


,k;"FA": SOUND 


d 


.5: 


GOTO loop 






116 


PRINT AT y 


t x;"SO": SOUND 


d 


.7: 


GOTO loop 






117 


PRINT AT y 


*;"3I": SOUND 


d 


,11 


GOTO loop 






119 


PBINT AT y 


x»"RE": SOUND 


d 


,2: 


GOTO loop 






l?i 


PRINT AT y 


x;"LA": SOUND 


d 


.9: 


GOTO loop 






eoo 


GOTO loop 






900 


LET D=.03: 


LET X-5: LET lo 


op=I0OO 






901 


BORDER 4: PAPER 4: CLS 




902 PRINT AT B 


6 i "d r m f s 


. 


903 


PRINT AT 9 

r 


6;"oe laoa 


910 


LET aS-" 2 


3 5 6 7 9 






920 FOR y-3 TO 4; GOSUB 990 
930 NEXT y 

940 LET aS-"Q WERTXUIO 
P- 

941 PAPER 7: INK 

95 FOR y=4 TO 6: GOSUB 990 
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960 NEXT y 

980 LET x=15: LET y-15: GOTO 1 

oop 

990 FOR i=l TO LEN a3 

991 IF a3UX>CHRS 32 THEN 
PRINT AT v.x+i iaS(i) ; 

992 NEXT i : RETURN 

1000 PRrNT AT y,x;CHR$ 32;CHRS 

32 

1005 LET aS-INKEYS; IF a$-*" TH 

EN GOTO 1000 

1100 LET nota-CODE a$: GOTO not 

a 

Aqueks que possuem micros da li- 
nha Spectrum importados devem subs- 
tkuir o comando SOUND pelo coman- 
do BEEP, que tern a mesma sintaxe. 

Apds iniciar a execucao do programa, 
mantenha uma das teclas pressionadas 
para ouvir urn som pulsante correspon- 
dente a auto-repeticao da tecla. O som 
nao e emitido continuamente, como 
num orgao, pois o comando SOUND 
produz sons com duracao limitada. As- 
sim, o que o programa realmente faz e 
tocar a mesma nota repetidas vezes. 



Vejamos agora o que acontece com 
os modelos da linha MSX. 

Os microcomputadores dessa linha 
contain com poderosos comandos sono- 
ros gracas a urn microprocessador inter- 
no dedicado inteiramente a producao de 
sons, e capaz de funcionar simultanea- 
mente com a unidade central. Para pro- 
grama-lo em BASIC, precisamos recor- 
rer a varios comandos SOUND, com o 
prop6sito de definir diversos parametros 
do som — ou ruido — que estamos que- 
rendo emitir. Uma introducao a esse as- 
sume foi apresentada no artigo Quebre 
a Barreira do Som, onde abordamos va- 
rios sons nao-musicais. 

Contudo, para transformar a parte 
superior do teclado num programa se- 
melhante ao dos outros micros, pode- 
mos usar o comando PLAY, que torna 
o programa mais simples e curto. 

A primeira linha do programa esta- 
belece os parametros iniciais das notas: 
volume, duracao, velocidade de execu- 
cao. As linhas 20 e 30 colocam todas as 
notas usadas pelo programa dentro da 
variavel indexada N$, recorrendo ao co- 
mando READ e aos dados da linha DA- 
TA. A linha 40 cria um cordao conten- 
do todas as teclas usadas e um outro que 
permite dar nome a algumas das notas 
(do, re, mi etc). As linhas que vao de 50 
a 100 cuidam da organizacao do video. 
A primeira delas seleciona a tela de tex- 
m com 32 colunas, escolhe as cores e 
desliga as teclas de funcao. 

Nas tres linhas seguintes — ou seja, 



55, 60 e 65 — , o comando VPOKE e uti- 
lizado para modificar a tahela de cores 
— BASE (6) — , permitindo, assim, a 
impressao de letras coloridas. Se voce 
nao gostar das cores, pode mudar os co- 
digos nos locais onde eles aparecem — 
para maiores informacoes, veja o arti- 
go Os Comandos PEEK e POKE (pagi- 
na 261). 

Na linha 70 , o comando VPOKE e 
novamente utilizado, desta vez para es- 
crever na tela. O FOR... NEXT contido 
nessa linha imprime parte do diagrams 
do teclado na tela, obtendo com READ 
os codigos dos caracteres de cada uma 
delas na linha 75 e modificando a tabe- 
la de nomes — BASE(5). O restante do 
diagrama e feito do mesmo modo pelas 
linhas 80 e 85. 

As linhas 90 e 100 completam o qua- 
dro, imprimindo o nome das notas sob 
as teclas correspondentes. 

A linha 120 espera que acionemos 
uma tecla. A 130 descobre qual das no- 
tas do cordao MS corresponde a tecla 
pressionada; se a tecla nao pertencer ao 
conjunto predefinido, a linha 120 sera 
repetida. 

A linha 140 e a que realmente execu- 
ta a nota, usando o PLAY. A altura da 
nota e selecionada pela variavel NT, que 
e usada para escolher o eiemento de N$ 
que contem os operandos adequados do 
PLAY. 

A seguir, um comando ON GOTO na 
linha 150 imprimira o nome da nota no 
canto superior esquerdo da tela, se ela 
pertencer a primeira oitava de "C 
maior". O programa retornaentao pa- 
ra verificar uma nova tecla. 



10 PLAY "V15L64T255" 

20 DIM NS(2l):FOR K-0 TO 16:REA 

D N$(K) :NEXT 

30 DATA C.C#,D,Dt,E,F,FI,G,Gl,A 

, At , B , 04C , 04CI , 04D, 04D# . 04E 

40 M$»"Q2W3E»5T6Y7UI9O0P" :DS="Q 

WERTYUIO" 

50 SCREEN 1: COLOR 1,6, 6: KEY OFF 

55 FOR 1=6 TO 7:VPOKE BASE (6) +1 

, 15*16+1 :NEXT 

60 FOR I =6 TO 11: VPOKE BASE (6)+ 

I,16+15:NEXT 

65 FOR 1-12 TO 15: VPOKE BASE (6) 

+1,16+10: NEXT 

70 FOR K-0 TO 6 : READ A:N«2*A-20 

*INT(A/10) : VPOKE BASE (5)+71+N , A 

rVPOKE BASE(5)+103+N,A:NEXT 

75 DATA 50,51,53,54,55,57.48 

80 FOR K^O TO 9:HEAD A: VPOKE BA 

SE{5)+102+K*2,A:VP0KE BA3E(5)+1 

34 + K* 2 , A : VPOKE BASE (5) +166+K* 2 . 

A:NEXT 

85 DATA 81,87,69,82,84.89,85,73 

,79,80 

90 LOCATE 4, 9: PRINT "d r m f a 

1 B d" 

100 LOCATE 4, 10: PRINT "o e i a 



o a i o" 

120 A$-1NKEYS:IF AS-"" THEN 120 

130 NT-=INSTR(MS,AS) tlf NT=0 THE 

N 120 

140 PLAY "OJ-+N5(NT-l> 

150 LOCATE 0,0:D«1NSTR(D$,A$) :0 

N D GOTO 170,180.190,200,210,22 

0,230,170 

160 PRINT " ":GOTO 120 

170 PRINT "D0":G0TO 120 

180 PRINT "RE":GOTO 120 

190 PRINT "MI":GOTO 120 

200 PRINT "FA": GOTO 120 

210 PRINT -SO':GOTO 120 

220 PRINT "LA": GOTO 120 

230 PRINT "SI":GOTO 120 
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UM NOVO TECLADO 



O programa do Apple utiliza a roti- 
na de producao de sons do artigo Ap- 
ple e TK-2000: Efeitos Sonoros. O 
TK-2000 nao precisa dela, ja que dispoe 
do comando SOUND. 

A linha 10 limpa o video e ativa a te- 
la grafica de baixa resolucao. A Hnha 20 
trans fere para a mem6ria os codigos da 
retina de geracao de som, contidana li- 
nha 30. 

A linha 35 cuida de coiorir a tela, 
usando uma serie de tragos horizontais 
— verdes, no Apple — desenhados por 
comandos HLIN. As linhas 40 a 70 de- 
senham um teclado de piano. As teclas 
brancas e pretas sao feitas por coman- 
dos VLIN. As coordenadas para uso 
desses comandos ficam nas linhas DA- 
TA 50 e 70. 

As linhas 80 e 90 imprimem as letras 
das teclas correspondentes ao desenho 
do piano, para orientar o usuario. Ob- 
serve que ha dois espagos entre cada par 
de letras. A linha 100, por sua vez, im- 
prime o nome das notas (os tradicionais 
do, re, mi...). 

A seguir, o programa espera que se- 
ja pressionada uma tecla, colocando seu 
caractere em K$. 

Na linha 110, o comando POKE 
900,60 define a duracao das notas — o 
endereco 900 e usado justamente para 
center essa duracao. 

Depois disso, uma grande quantida- 
de de linhas D7,..THEN testa o conteii- 
do de K$ para descobrir qual tecla foi 
pressionada, emitindo a nota correspon- 
dente em cada caso. O endereco 901 6 
usado para determinar a tonalidade. A 
rotina de produeao de som i executada 
pelo comando CALL 800. 

Detectada a tecla pressionada, o pro- 
grama retorna a linha 1 10 para aguar- 
dar uma nova nota. 




Por que as teclas musicais criadas 

pelo programa nos microcomputadores 
da linha TRS-Color nSo tem auto-repe- 
tipio? 

programa do TRS-Color usa habi- 
tualmente o comando INKEYS para ve- 
rificar o teclado. 

£ posslvel obtermos a auto-repeti- 
cao das teclas por intermfidio do co- 
mando PEEK (essa forma tern sido mui- 
to utilizada por n6s em rotinas de mo- 
vimentacao do cursor). No entanto, o 
programa teria que acionar, neste ca- 
se, mais de vinte PEEK com diferentes 
numeros, um para cada tecla musical. 

Como tais numeros nao teriam ne- 
nhuma relacao entre si (as teclas, nes- 
te caso, sao QWE... e nao ABC...), se- 
ria preciso colocalos em linhas sepa 
radas ou armazena-Ios em uma linha 
DATA, tornando a execucSo do progra- 
ma muito demorada e complicada. E 
mais rapido, comodo e simples pressio- 
nar uma tecla de cada vez, 

A duracSo da uma nota pode ssr 
controlada peto tempo em que a tecla 
se mantem sob pressSo? 

De um modo geral, a resposta e nao. 
Na maioria dos computadores isso s6 
seria possfvel com linguagem de ma- 
quina, \& que o programa teria que fa- 
zer duas coisas ao mesmo tempo: to 
car a nota e verificar se a tecla conti- 
nua sendo pressionada, 

Contudo, no micro MSX esse con- 
trole e possfvel; e que, nesse compu- 
tador. o dispositivo de som f unciona in- 
dependentemente da unidade de pro- 
cessamento central. 

A producio de acordes — emissao 
de mais de uma nota simultaneamen- 
te — para enriquecer uma molodia tam- 
bem § possfvel no MSX, que conta com 
tres canals de som. 



10 HOME ! GR 

20 FOB I - TO 22: BEAD A: P0 

KE 800 + I, A: NEXT 

30 DATA 160,0,174,133,3,238,4 

a. 192, 136, 208, 5, 206. 132. 3, 240,6 

,202,208,245,76,34,3,96 

35 COLOR- 12: FOR I - TO 39 : 

HLIN 0,39 AT I: NEXT 
40 COLOR- 0: FOR I - 1 TO 7 : R 
EAD A: VLIN 20,30 AT A: NEXT 
50 DATA 8,11,17.20,23.29,32 
60 COLOR- 15: FOB I - 1 TO 20 : 

READ A: VLIN 20,39 AT A: NEXT 



70 DATA 6,7, 9,10, 12,13,15.1 

6,18,19. 21.22,24,25.27,28,30,3 

1,33,34 

80 VTAB 21: HTAB 9: PRINT "2 

3"; TAB( 18} ; "5 6 7"; TAB ( 30 

)l"9 0" 

90 VTAB 22: HTAB B: PRINT "Q 

WERTYUIOP" 

100 VTAB 24: HTAB 7: PRINT "DO 

RE MI FA SO LA SI DO" ; 
110 GET KS: POKE 900,60 
120 IF K3 - "Q" THEN POKE 901 
,96; CALL BOO: GOTO 110 
130 IF KS ■= "2" THEN POKE 901 
,90: CALL 800: GOTO 110 
140 IF KS - "W" THEN POKE 901 
,85: CALL 800: GOTO 110 
150 IF KS = "3" THEN POKE 901 
,80: CALL 800: GOTO 110 
160 IF KS = "E" THEN POKE 901 
,76: CALL 800; GOTO 110 
170 IF K3 = "H" THEN POKE 901 
,72: CALL 800: GOTO 110 
180 IF KS - "5" THEN POKE 901 
.67: CALL 800: GOTO 110 
190 IF KS = "T" THEN POKE 901 
,64: CALL 800: GOTO 110 
200 IF KS ■ "6* THEN POKE 901 
,60: CALL 800: GOTO 110 
210 IF KS - "Y" THEN POKE 901 
,56: CALL 800: GOTO 110 
220 IF KS - *7" THEN POKE 901 
,53: CALL 800: GOTO 110 
230 IF K3 - "IT THEN POKE 901 
,50: CALL 800: GOTO 110 
240 IF KS - "I" THEN POKE 901 
,47: CALL 800: GOTO 110 
250 IF KS - "9" THEN POKE 901 
,45: CALL 800: GOTO 110 
260 IF KS = "O* THEN POKE 901 
.42: CALL 800: GOTO 110 
2 70 IF KS - "0" THEN POKE 901 
,40: CALL 800: GOTO 11.0 
280 IF KS - "P" THEN POKE 901 
.37: CALL 800: GOTO 110 
290 GOTO 110 
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O programa acima funciona normal- 
mente nos micros da linha TK-2000, 
Contudo, muitos de seus usuarios po- 
dem preferir usar o comando SOUND. 

Para isto, basta eliminar as linhas 20 
e 30 e rnodificar a linha 1 10, dando-lhe 
a seguinte forma: 



110 GET K$: D 



60 



A seguir, modifique todas as ocorren- 
cias de: 

POKE 901,F:CALL 800 
para 

SOUND F,D 

onde F nao e uma variavel, mas o mes- 
mo numero que ocorre ap6s o POKE 
901. 

Os usuarios do TK-2000 podem mu- 
dar as cores nas linhas 35, 40 e 60, jet 
que as cores do Apple sao diferentes. 



O programa comeca limpando a tela 
e colorindo-a de azul. A mesma linha 
tambem estabelece os parametros de vo- 
lume, duracao e velocidade das notas 
que serao executadas pelo comando 
PLAY. O artigo Quebre a Barreira do 
Som explica a sintaxe desse comando. 

As linhas 20 e 30 posicionam as no- 
tas usadas pelo programa dentro da ma- 
triz NS. A linha 40 coloca num cordao 
as teclas que serao utilizadas e em ou- 
tro os nomes correspondentes a algumas 
delas (d6, re,, mi etc). 

As linhas 50 a 110 cuidam dos dese- 
nhos na tela, colorindo-os de laranja e 
preto. Depois disso, o computador es- 
pera que pressionemos uma tecla. Se es- 
ta nao corresponder a uma nota, o com- 
putador voltara a linha 120 e esperara 
por outra. 

A linha 140 executa a nota com o au- 
xilio do comando PLAY. A tonalidade 
da nota e definida pela variavet NT, que 
depende da tecla pressionada, NT e usa- 
da para setecionar o elemento da matriz 
NS que contem os parametros adequa- 
dos da instrucao PLAY. 

Usando o comando ON... GOTO, o 
computador imprimira na tela o nome 
da nota (se esta fizer parte da primeira 
oitava de " C maior"), retornando em 
seguida para esperar uma nova tecla. 

10 CLS 3:PLAY"V31L4T8":BS-CHRS( 

175) 

20 DIM N$(21):FOR K-0 TO 19:REA 

D N3(K) :NEXT 

30 DATA C,C|,D,D|,E,F,Ft,a,0*,A 

, Al . B , 04C , 04C# , 04D , 04D| , 04E , 04F 

,04F|,04G 

40 M$-"Q2W3ER5T6Y7UI9O0Pf-"+CHR 

$(8) :D$-"QWERTYUIO" 

50 FOB K-0 TO 6:READ A:N-2*A~20 

*INT (A/10) : POKE 1093+N, A: POKE 1 

125+N.A:NEXT 

60 DATA 50.51,53,54,55,57,48 

65 POKE 111 3, 45: POKE 1145,45 

70 FOR K-0 TO 11: READ A: POKE 11 

24+K*2.A:POKE 1156+K*2,A:POKE 1 

188+K*2,A:NEXT 

60 DATA 81,87.69,82,84,89,85,73 

,79,80,64.95 

90 PRINT #260,"d*BS"r"B3"« , B3"f 

*BS"a"B$"l*B$*o"B8' , d" s 

100 PRINT <292."o"B$"e-B9"i"B$" 

*"BS"o"B3"a"BS"i"B3"o"i 

110 SCREEN 0,1 

120 A$-INKEY$:IF AS-"" THEN 120 

130 NT-INSTR(M3.A3) .IF NT-0 THE 

N 120 

140 PLAY"03"+NS(NT-1) 

150 PRINT «0. ; :D-INSTR (D3, AS) :0 

H D GOTO 170,180,190.200,210,22 

0.230,170 

160 PRINT BS:BS::GOTO 110 

170 PRINT"DO"i :OOTO 110 

180 PRINT"RE"; : OOTO 110 
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190 PBIMT-MI", 

200 PRINTTA" 

210 PRINT'flO" 

220 PBIMT'LA", 

230 PRINT'SI", 



:GOTO 110 

:GOTO 110 

:GOTO 110 

:QOTO 110 

rGOTO 110 



UMA SINF0NIA DE BEETHOVEN 



O que podemos tocar nesse teclado 
musical que o programa acaba de criar? 
Que tal uma cancao de ninar, por exem- 
plo? Ela comeca com d6, de forma que 
a primeira tecla e Q; voce tera que des- 
cobrir o ritmo "de ouvido": 



E, agora, esta passagem famosa da 
Nona Sinfonia de Beethoven, compos- 
ta quando o arlista ja estava surdo: 

E,E,R,T,T,R,E,W 
Q.Q^.E.E.W.W 

E,E,R,T 1 T,R,E,W 

Q.Q.W.E.W.Q.Q 

W.E,Q,W,E,R,E,Q 

W.E,R 1 E,W,Q,W,T 

E,E,R,T,T,R,E,W 

Q.Q.W.E.W.Q.Q 

Executemos a seguir o tema do filme 
A Novi?a Rebelde: 



Q,W,R,E,T,E,Q 
Q,E,W,R,E,Q 
Q.E.W.R.E.T.E.Q 
Y,W,R,E,Q 



Q,W,E,Q,E,Q,E 

W,E,R,R,E,W,R 

E,R,T,E,T,E,T 

R,T,Y,Y,T,R,V 

T,Q,W,E,R,T,Y 

Y,W,E,5,T\Y,U 

U,E,5,6,Y,U,I 

I^.Y.R.U.TJ 

Nessa melodia existem apenas tils 
notas fora da escala (perto do final). 
Aqui estao as tecias para tocar o inicio 
de Jesus Alegria dos Homens, de Jo- 
hann Sebastian Bach: 

Q,W t E/T,R t R,Y,T,T,I,U.I,T,B, 
Q,W,E.R,T,Y,T,R^,W,E.Q 

Infelizmente, neste ponto, a musica 
"cai fora do teclado". 





T 
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Neste artigo completaremos o jogo de 
palavras eomecado na licao anterior. 
Nele voce encontrara tudo o que ainda 
e necessario para comecar a jogar. Di- 
gue as linhas que faltam e veja aJgumas 
aplicacoes interessantes para os coman- 
dos de manipulacao de cordoes alfanu- 
merieos do computador. Depots, desa- 
fie seus amigos para adivinhar paJavras 
bem complicadas. 

Aqui estao as rotinas para cada uma 
das opcoes do jogo: comprar letras, adi- 
vinhar uma letra em uma posicao espe- 
cifica da frase, e adivinhar a frase intei- 
ra. O programa tambem faz a contagem 
de ponios assim como do niimero de 
tentativas e de jogadas. 



370 IF dSO'XX" AND dSO"22" 
AND LEN d$>l THEN GOTO 360 
IF d$=CHBS 32 THEN GOTO 



THEN LET dS="' 



380 

410 

385 IF d$»"ZZ' 

: GOTO 900 

390 IF CODE d$<65 OH CODE dS> 

90 THEN GOTO 360 

400 IF dS="XX" THEN LET d$=" p 



: GOTO 500 

4 10 GOSUB 790 

420 LET e-0 

4 30 LET e=e+l 

440 IF e=l+l THEN LET tb=tb-g 

: LET q3(m TO m+7)*="": PRINT 

AT 4,0;q$: LET dS""": GOTO 470 

450 IF aS(e)Od$ THEN GOTO 

4 30 
460 IF sS(e)=d$ THEN LET z$(e 
)=d3: GOTO 4 30 

4 70 PAUSE 100: PRINT AT 14.0: : 
FOR r = l TO 7: PRINT " 

" : NEXT r 
4B0 PRINT PAPER Z; INK 6 ; AT I 
,22;tb;CHHS 32: PRINT PAPER 2 
; INK 6; AT 14,0;z$: PRINT " TE 
NTAT.IVA " iff! LET f -f + l : IF a$ = 
Z$ THEN GOTO 7 30 

4 90 GOTO 360 

50 INPUT "QUAL CAPACTER QUEH 

ADIVINHAR ?*, LINE dS 

510 IF LEN d5>l THEN GOTO 500 

520 IF dS=CHRS 32 THEN GOSUB 

790; GOTO 550 

530 TF CODE dS<65 OR CODE dS> 

90 THEN GOTO 500 

540 GOSUB 790 

5 50 PRINT PAPER 2; INK 6; AT 
18.0id$: PRINT AT ]9,2i'"EM QUA 
L POSICAO ? - Use aa r.eel 



Nonada. E com essa palavra misteriosa 
que tem inicio Grande Sertao: 
Veredas, de Guimaraes Rosa. Surpreenda 
seus adversaries com expressoes 
como essa, jogando o jogo de palavras. 



as DIB ETTA e ESQUEBDA e 

'0' para definir." 

560 PRINT PAPER 2; INK 6; AT 

14,0 ;zS: PRINT PAPER 6; INK 2 

;AT 14,b;z$(b+l) 

570 PAUSE 0: LET yS=INKEy$: IF 

yS = "" THEN GOTO 570 

590 IF yS-"8" AND b<l-l THEN 

LET b=b+l 

600 IF y&="5" AND b>0 THEN 

LET b=b-l 

610 IF yS»"0" THEN GOTO 680 

640 IF b>=32 THEN LET W-15: 

LET v=b-32 

650 IF b<32 THEN LET w=14: 

LET v=b 

660 PRINT PAPER 2: INK 6 : AT 

14,0 ;zS: PRINT PAPER 6; INK 2 

;AT w,v;z$(b+l) 

670 GOTO 5/0 

680 IF zS(b+l )<>"*" THEN GOTO 

570 

690 IF s$(b+l]OdS THEN LET 

r.b-tb-g/2: PHTNT FLASH 1 ; AT 

17.0 I "QUE AZAfi!": PAUSE 50: 

LET b=0: GOTO 4 70 

700 IF sS(b+U-dS THEN PRINT 

FLASH l; AT 17,0;*MUTTO BEM !": 

PAUSE 50: LET z$(b+l)=d$: LET 

tb=tb+g: LET b=0 

710 IF s5-2$ THEN GOTO 7 30 
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NOVAS ROTINAS PARA 



CONCLUIR JOGO DE PALAVRAS 
COMPRE LETRAS 



COMO ADtVINHAR UMALETRA 



EM POSICAO ESPECIFiCA 



ADIVINHEAFRASECOMPLETA 



VER1FICA CAO DO PALPITE P A INSTRUCAQ CALL NO APPLE 



DO JOGADOR 



E NO TK-2000 



720 GOTO 4/0 

730 PRINT INK 6; PAPER 2 ; AT I 

, 22;tb: PRINT AT 1 7 , ; "PARAHEN 

S, ";bS:TAB 0;TAB 3] ;" ": 

PAUSE 100: CLS 

740 LET k-k+l: IF k-t*2 THEN 

GOTO 880 

750 J-ET cS'dS: LET aS-bS: LET 

b$~c$ 

760 LET te- 

tb-tc 

770 LET q$- 

780 
790 
800 
810 
GOTO 



■ta: LET ta-tb: LET 



LET d=0: LET 



GOTO 160 

LET mMCODE d$-64) *B-7 
IF m=-263 THEN LET m=209 
IF q3(m TO m+5)="" THEN 
360 

qStm+2 TO m+3) 



820 LET g=VAL 

830 RETURN 

8B0 IF ta>tb THEN 

aS:" VENCEU POR " 

890 IF tb>ta THEN 

bS;" VENCEU POR " 

892 IF ta = tb THEN 

" RESULTADO FOI 

895 STOP 

900 INPUT "INTRODUZA A FRASE 

LINE h$ 

910 IF h$<>8$ THEN PRINT 

FLASH 1 ;AT 17 . ; "ERRADO ! " : 



CLS : PRINT 
ta:" A "itb 

CLS : PRINT 
tbi" A ";ta 

CLS : PRINT 
UM EM PATE !" 



PAUSE 50: LET tb=tb-50: PRINT 

INK 6: PAPER 2; AT l,22rtb: 

PRINT AT 15,0;"TENTATTVA " ; f : 

LET f=f+l : GOTO 360 

920 FOR n»l TO 1: LET d$-zS{n) 

: IF d$<>"*" THEN GOTO 950 

930 LET m-(CODE aS (n) -64 ) *8-7 : 

IF m=-2S3 THEN LET m=209 

940 LET tb-tb+VAL q$ (m+2 TO m+ 

3) 

95 NEXT n: GOTO 73 

D 

360 PRINT €384."": : LINE INPUT " 

O-ADIVINHAP, LETRA 
ZZ-ADIVINHAft A FRASE 
A-Z-COMPRAR O CARACTER ?";D3 
370 IF DSO'XX' AND DSO'ZZ" AN 
D LEN(D3)>1 THEN 360 
380 IF DS-CHRSU2) THEN 410 
385 IF DS-"ZZ" THEN DS-"":GOTO 
1000 

390 IF DS<*A" OR D$>"Z" THEN360 
400 IF DS-"XX" THEN DS-"" :GOTO 
500 

410 GOSUB 790 
420 E-0 
430 E-E+l 




BOU|OgN e 




440 IF E-L+l THEN TB-TB-G :MIDS ( 
QS,M,6)=»* ": PRINT #96.03 
:D$-"»:GOTO 470 

450 IF MIDS(S3,E,1X>D3 THEN430 
460 IF MID$(S$,E.1)-D$ THEN MID 
S(ZS.£.l)-D3:GOTO 430 
470 GOSUB 950: PRINT 6448: PRINT 
#416:PRINT #480 , STRINGS (31 , 32) ; 
480 PRINT #54.TB:PRINT 0352.23: 
PRINT #320. "TENTATIVA";F:F-F+1: 
IF 3S-ZS THEN 730 
490 GOTO 360 

500 PRINT #448: PRINT #416: PRINT 
#448,"; : LINE INPUT "GUER ADIU 
INHAR QUAL CARACTER ?*;D$ 
510 IF LEN{DS)>1 THEN 500 
520 IF DS-CHRSC32) THEN GOSUB 7 
90:GOTO 550 

530 IF DS<"A' OR DS>"Z" THEN500 
540 GOSUB 790 

550 PRINT #448. *EM QUAL POSICAO 
? - USE 3ETAS E '0' PARA DEFIN 
IR."; 

560 PRINT #352, ZS: POKE 1024+352 
+B, (ASCfMIDS (2S.B+1.1) ) AND 191) 
570 Y$-INK£YS:IF Y3-" THEN 570 
590 IF Y3-CHRS{9) AND B<L-1 THE 
N B-B+l 

600 IF Y3-CHRS{8) AND B>0 THEN 
B-B-l 
610 IF YS-"0' THEN 680 
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660 PRINT 6352, Z3: POKE 352+1024 
+B, (A3C{MIDS{Z3,B+1,1))AND 191) 
670 GOTO 570 

680 PRINT 6480, STRINGS (31. 32} ; : 
IF MI03(ZS.B+1.1)-D3 THEN TB-TB 
-G: PRINT §448, "TRAPACEIRO! " :FOR 

DE-1 TO 100: NEXT :B-0:GOTO 470 
690 IF MIDS(SS,B+l,l)ODS THEN 
TB-TB-G/2: PRINT €448, "QUE AZAR ! 
":FOR DE-1 TO 100 : NEXT : B-0 rGOTO 

470 
700 IF MIDS(93,B+1,1)-D3 THEN P 
RINT 644B,"MUIT0 BEK!":FOR DE-1 

TO 100 : NEXT: MID$(Z$,B+ 1.1) =DS : 
TB-TB+G : B-0 
710 IF S$»Z3 THEN 730 
720 GOTO 470 

730 PRINT 6480, "PARABENS. * : BS i 
:GOSUB 950: CLS 
740 K-K+1:IF K-T*2 THEN 880 
750 CS-AS:A3-BS:BS-C3 
760 TC-TA:TA-TB:TB-TC 
770 QS-"*:D-0:F-1 
780 GOTO 160 
790 M-(ASC(D3)-64)*8-7 
800 IF M--263 THEN M-209 
810 IF MIDS (QS,M,6)=" "THE 
N 360 

82 G-VAL(KID$(Q$,M+2,2) ) 
830 RETURN 

830 IF TA>TB THEN CLS: PRINT AS; 
* UENCEU POR";TA;"A":TB 
890 IF TB>TA THEN CLS: PRINT BS i 
" UENCEU P0R";TB;"A";TA 
892 IF TA-TB THEN CLS : PRINT'O R 
ESULTADO FOI UM EMPATE ! " 
895 END 

1000 PRINT 6448: PRINT 6416:PRIN 
T e416,-INTR0DUZA A FRASE -":LI 
NE INPUT GU3 

1010 IF GUSOSS THEN PRINT 6416 
,*ERRADO !":TB-TB-50: PRINT 654, 
TB: GOSUB 950: PRINT 6320 , "TENTAT 
IVA";F: :F-F+l:GOTO 360 
1020 FOR N-l TO L : DS-MIDS (ZS . N, 



1):IF D3<>"*" THEN 1050 

1030 M-(ASC(MID3(SS.N,l))-64)*8 

-7: IF M— 263 THEN M-209 

1040 TB«TB+VAL(KIDS(QS.M+2,2)) 

105 NEXT N:GOTO 730 



fffi 



.167 S3-"" 

360 LOCATE 0. 21 : PRINTSPC (77) : LO 
CATE 0, 21 :PRINT"XX-Adivinha let 
ra ZZ-Adivinha f rase" : INPUT" 
A-2 Compra letra " i DS 
370 IF DSO"XX" AND DSO"2Z" AN 
D LEN(DS)>1 THEN 360 
380 IF D$=" n THEN D$="_":GOTO 4 
1,0 

385 TF DS="ZZ" THEN DS»"":GOTO 
1.000 

390 IF (D$<"A" OR D$>"Z") AND D 
3<>"C" THEN 360 

400 IF D3="XX" THEN DS="":GOTO 
500 

410 GOSUB 790 
420 E=0 
4 30 E-E+l 

440 IF E"L+1 THEN TB=TB-G : MIDS ( 
Q3,M.7+(N/5-lNT(N/5) ) )=STHING$( 
8. 32) -.LOCATE 0,4 : PPINTQS : DS = " " : 
GOTO 4 70 

450 TF MIDStSS.E.DODS THEN 43 


460 IF MID$(SS,E,1)-D$ THEN MID 
3<Z5,E,l)=D3:GOTO 430 
4 70 GOSUB 95 

480 L0CATE25, 1 :PRINTTB; "ponLoH" 
: LOCATE , 12 : PRINT'ZS : LOCATE 0,1 
5:PBtNT"Tentativa " jF:F-F+.l :IF 
S$=ZS THEN 730 
490 GOTO 360 

500 LOCATE , 21 : PRINTSPC ( 77) • LO 
CATE 0,21: INPUT" QUAL A LETRA" ;D 
S 

510 IF LEN(DS)>1 THEN 500 
520 IF D3 = "" THEN D3-CHR3 (32) :G 



OSUB 790; GOTO 550 

530 IF (D3<"A" OR D3>"Z") AMD D 

SO*C" THEN 500 

540 GOSUB 790 

550 LOCATE 0, 21 : PRINTSPC (77) :LO 

CATE 0,21: PRINT* INDIQUE A POSIC 

AO USANDO AS SETAS PARA 

MARCAR TECLE <0> n 

555 B=0:V=12:BB-0 

560 LOCATE BB.V.l 

570 YS-INKEY$:IF Y$-"" THEN 570 

590 IF Y$-CHRS(28) AND B<L-1 TH 

EN B-B+l 

600 IF Y$=CHR$(29) AND B>0 THEN 

B=B-1 
605 BB=B:V=12:IF B>39 THEN BB=B 
-40:V-13LIST 600- 
610 IF Y$-"0" THEN 680 
670 GOTO 560 

680 IF MIDS (ZS.B+1.1) =D3 THEN T 
B=TB-G: LOCATE 0, 21 : PRINTSPC (77) 
: LOCATE 0,2.1 : PRINT"TRAPAC£tflO ! " 
: GOSUB 950: GOTO 4 70 
690 IF MID$(SS,B+l,l)ODS THEN 
TB=TB-G/2: LOCATE , 21 : PRINTSPC ( 
77): LOCATE , 21 : PRINT" ERROU DES 
TA VEZ. . . ":GOSUB 950: GOTO 4 70 
700 IF MID$ (S$,B+1 ,1) -DS THEN L 
OCATE 0.21:PRTNTSPC(77) i LOCATE 
0.21:PRINT"BOM PALPITE! " : MID$ (7. 
3.B+1 ,1}=DS:G0SU8 950:TB=TB+G 
710 IF SS=ZS THEN 730 
720 GOTO 470 

730 LOCATE , 2 1 : PRINTSPC (77) : LO 
CATE 0, 21: PRINT" PARABENS ! ACERT 
OU! " :BEEP:GOSUB 950:BEEP:CLS 
740 K=K+1:IF K=T*2 THEN 8B0 
750 SWAP AS.BS 
760 SWAP TA.TB 
770 QS""" :D=0: F=1:SS="" 
780 GOTO 160 
790 M-INSTR (QS,I>$) 
800 IF D3="_" THEN DS=CHR$ (32) 
810 IF MID${Q$.M,5)=STfilNGS(5.3 
2) THEN 360 
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III 



820 G=VAL(MIDS(QS,M+2,2)) 

8 30 RETURN 

880 IF TA>TB THEN CLS : PRINTAS ; " 

GANHOU POR* ;TA; "PONTOS A";TB 
890 IF TB>TA THEN CLS : PRINTB5 ; " 

GANHOU POR" ;TB; "PONTOS A";TA 
892 IF TA°TB THEN CLS : PH1NT"Q J 
OGO TERMINOU EMPATADO EM" : PRINT 
TA; "PONTOS" 
895 END 

950 FOR DE=1 TO 1000 : NEXT : RETUR 
N 

1000 LOCATE 0.21:PRINTSPC(77) :L 
OCATE 0,21 : PRIWT"DTGITE A FRASE 

COMPLETA:":LINEINPUT GU$ 
1010 IF GUSOSS THEN LOCATE 0,2 
1 :PRINTSPC (7) : LOCATE 0,21: PRINT 
"ERRADO! " :TB=TB-5 : LOCATE 25,1: 
PRINTTB ; " pantos" : GOSUB 950 : LOCA 
TE 0,15:PRINT"TENTATIVA" :F:F=F+ 
l:GOTO 360 

1020 FOR N=l TO L : DS=MIDS (ZS , N, 
1) :IF DSO"*" THEN 1050 
1030 IF DS-CHR${32) THEN DS""-" 
:M-INSTR(Q$,DS) 

1040 TB=TB+VAL (MIDS (OS , M+Z , 2) ) 
1050 NEXT;GOTO 730 



■ 1) + " 
+ 8) : VT 
GOTO 47 



CSS.E.1) < > DS 



- DS THE 
DS + MI 



(8«,K.,1) 

(2S,E) + 
GOTO 4 30 
1 TO 300: NEXT 
HTAB 25: PRINT TB; 



GEE2 



- G:QS - LEFTS <Q$,M 

" + MIDS (QS,M 
AB 5 : PRINT Q$:DS ■ "" 


450 IF MIDS 
THEN 430 
460 IF MIDS 
N ZS = LEFTS 
D$ CZS.E + 2) 
470 FOR DE - 
480 VTAB 2 
" PONTOS ": VTAB 12: HTAB 40: 
PRINT ZS: VTAB 16: PRINT "TENTA 
TIUA ";F:F - F + 1: IF S$ = MI 
DS (ZS.2) THEN 710 
490 GOTO 360 
500 VTAB 22: CALL - 
T "O.UAL A LETRA " ; DS 
510 IF L£N CDS) > I 
520 IF DS ■ "" THEN DS - 
GOSUB 790: GOTO 550 
530 IF DS < "A" OR D$ > " 
EN 500 

540 GOSUB 790 
550 VTAB 22: CALL - 958: 
T "COLOQUE O MARCADOR SOB 
ICAO DESEJADA E TECLE [ENTER]"; 
:B - 1 

560 VTAB 14: CALL - B68 : HTAB 
B: PRINT CHR$ (94) 



TO 300: NEXT : GOTO 470 
700 IF MID$ (SS.B.l) ■ 



N PRINT "BOA! 



:TB ■ TB 



S = LEFTS CZS.B) + DS + 
FOR DE « 1 TO 



DS THE 
* G:Z 
MIDS 
300: 



(ZS,B + 2) 

NEXT 

710 IF SS - MIDS (Z$,2) THEN 

FLASH : VTAB 13: PRINT SS : CAL 
L - 868: NORMAL : GOTO 730 
720 GOTO 4 70 

CALL - 95fi: PRIM 
GOSUB 950: HOME 
IF J = T * 2 THE 



958 : INPU 



THEN 500 



TH 



PRIN 
A POS 



730 VTAB 22: 

T "PARABENS!" 

74 J - J + 1: 

N 880 

750 CS • AS -AS 

760 TC - TA:TA 

7 70 Q$ - "" :D ■ 

780 GOTO 160 

790 M = I ASC (DS) " 64) 

6 

800 IF DS = CHRS (32) 

= 218 



B$:BS = CS 
TH :TB = TC 
0:F = I 



* 8 



THEN M 



370 IF DS < > "ZZ" AND DS < 

> "XX" AND LEN (DS) > 1 THEN 3 

60 

380 IF DS - "" THEN DS ■ CHRS 

(32) : GOTO 410 
385 IF DS - "ZZ" THEN DS - " " : 

GOTO 1000 

390 IF DS < "A" OH DS > "Z" TH 
EN 360 
400 IF DS - "XX" THEN DS - "": 

GOTO 500 
410 GOSUB 790 
4 20 E = 
4 30 E - E + 1 
440 IF E ■ L + 1 THEN TB - TB 



IF Y$ 

CHRS 
- 1 
CHRS 
+ 1 

CALL 



CHRS (13) 



(6) AND B > 



(21) AND B < 



570 GET YS: 

THEN 6B0 
590 IF Y$ - 
1 THEN B - B 
600 IF Y$ - 

L THEN B - B 
670 GOTO 560 
680 VTAB 14 : 

22: IF MIDS 
N PRINT "TRAPACEIRO! ' 

- G: FOR DE = 1 TO 30D: 

GOTO 4 70 
690 IF MIDS (SS.B.l) < > DS 
THEN TB = TB - G / 2: PHINT "ER 
ROU DESTA VEZ...";: FOB DE - 1 



805 

810 

HEN 

820 G 

)) 

B30 

880 

INT 

A;" 

890 

INT 

Bi" 

892 

INT 



IF DS ■ "Z" THEN M ■ 210 
IF MIDS (QS.M.2) - " " T 
POP : GOTO 360 
= VAL ( MIDS (QS.M + 2.2 

RETURN 

IF TA > TB THEN HOME : PR 
: PRINT ASl" GANHOU POR ";T 
PONTOS A " ; TB 

TF TA < TB THEN HOME : PR 
: PRINT BS;" GANHOU POR ";T 
PONTOS A " ; TA 

IF TA - TB THEN HOME : PR 



PRINT "O JOGO TERMING!! EM 



PATADO EM 



PRINT TA;" PONTOS! 



958: VTAB 
(ZS,B,1) - DS THE 
:TB - TB 
NEXT : 



895 END 

950 FOR DE = 1 TO 3000: NEXT : 

RETURN 
1000 VTAB 22: CALL - 958: INP 
UT "ENTRE A FRASE: " ;GUS 
1010 IF GUS < > SS THEN VTAB 

22: CALL * 956: PRINT "ERRADO 




Hill 
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Pot que as linhas em que tie a instru 
cao CALL diferem nos ptogramas do 
Apple e do TK 2000? 

Porque a instrucaoCALLseguidade 
urn certo numero de linhas serve para 
acionar uma rotina em linguagem de 
maquina. No nossocaso, essas linhas 
constituem retinas intrfnsecas do com- 
putador, ou seja, sao rotinas prdprias 
da maquina. 

No Apple, a tnstrucao CALL - 958 
faz com que a tela seja apagada desde 
o cursor ate a ultima posicao de video, 
sem alteracao na posicao do cursor. No 
TK-2000, ela faz a mesma coisa, mas 
com uma diferenca: agora, o cursor € 
colocado na primeira posicao da tela. 
Assim, ele deve ser reposicionado ap6s 
o comando. 

J a a instrucao CALL -868 provo- 
ca, no Apple, o apagamento da linha 
em que estd o cursor a partir da posi- 
cao deste. A mesma instrucao no TK- 
2000 nio tern um efeito necessario pa- 
ra o nosso prograrna. 



360 

1020 FOB N - 2 TO L + 1:DS - 

MIDS (ZS.N.l): IF DS < > "*" T 

HEN 1050 

iuju n = I ahi; k nius tss.pi - i 

,1)) - 64) * 8 - 6: IF M = - 2 

62 THEN M - 218 

10. 15 IF H - 202 THEN M = M + 8 



TB + UAL ( MIDS (QS, 
:2S = " " + SS: GOTO 



1040 TB 
M + 2,2) ) 
1050 NEXT 
710 

Para executar o prograrna no TK- 
2000, faca as seguintes modificacoes: 

500 VTAB 22: CALL - 958: VTAB 
22: INPUT "QUAL A LETHA "(09 

550 UTAH 22: CALL - 958: VTAB 
22: PRINT "CGLOttUE MAHCADOH 

SOB A POSICAO DESEJADA E TECLE 

[ENTER}" : :B ■ 1 

560 VTAB 14: PRINT SPC ( 40): 

VTAB 14: HTAB B: PRINT CHRS (9 

4) 

680 
22: 

N 



VTAB 14: CALL - 958: VTAB 

IF MIDS (ZS.B.l) = DS THE 

PRINT "TRAPACEIRO! "; : TB = TB 

- O: FOR DE = 1 TO 300: NEXT : 

GOTO 470 

710 IF S3 - MID$ (Z5.2) THEN 

VTAB 13: PRINT SS : GOTO 730 
7.10 VTAB 22: CALL - 956: VTAB 
22: PRINT "PARAFSENS ! " : GOSUB 9 
50: HOME 



!":TB - TB - 50: VTAB 2: HTAB 2 

5: PRINT TB;" PONTOS" : VTAB 16: 

PRINT "TENTATIVA " I F : F - F + 1 

: FOB DE » 1 TO 300: NEXT : GOT 



1000 
B 22 


VTAB 22: CALL - 95B : VTA 
INPUT "ENTRE A FRASE : " ; G 


US 
1010 
22: 


TF GUS < > SS THEN VTAB 
CALL - 958: VTAB 22: PRLN 



2: HTAB 25: PRINT TB ; " PONTOS": 
VTAB 16: PRINT "TENTATIVA ";F: 
F = F + 1. ; FOR DE - 1 TO 300 : N 
EXT : GOTO 360 

Como na parte anterior da listagem, 
existem pequenas variacoes entre as ma- 
quinas, mas, de maneira geral, os pro- 
gramas sao muito pareeidos. 

As linhas 370 a 4 1 manipulam a op- 
cao do jogador — comprar letras, adi- 
vinhar letras ou mesmo descobrir a fra- 
se toda. A rotina identifica o tipo de pal- 
pite e evita que sejam feitas entradas 
ilegais. 



COMO COMPRAR LETRAS 



Se o jogador decidir comprar uma le- 
tra, o computador verificara imediata- 
mente qua! o valor dessa letra. Para is- 
50, e acionada uma sub-rotina que co- 
meca na linha 790. Esta encontra o va- 
lor ASCII da letra para saber ate que po- 
sicao da tabela de valores deve ir. Se o 
computador encontrar um espaco em 
branco na posicao, isso significa que a 
letra ja foi comprada e o prograrna vol- 
tara a linha 360. Do contrario, sera li- 
do o valor da letra, por intermedio da 
funcao VAL. Esse valor e utilizado pa- 
ra calcular o novo numero de pontes do 
jogador. 

A rotina que cuida da compra de le- 
tras comeca na linha 430. As Unhas 430 

460 passant pela frase procurando 



errado!"'TB - TB - 50: vtab ocorrencias da letra. 
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riscos e atualizada, substituindo-se os 
asteriscos pela letra comprada, quando 
isso ocorrer. A nova cadeia e entao mos- 
trada na tela e o valor da letra subtrai- 
do do total de pontos. O numero de ten- 
tativas e incrementado de 1 . A linha 440 
apaga a letra escolhida da tabela, indi- 
cando que ela nao estd mais disponivel. 



ADIVINHE LETRAS EM UMA POSICAO 



Se o jogador quiser tentar acertar 
uma letra em posicao especifica, deve 
primeiro selecionar XX. Esse procedi- 
mento faz o programa puiar para a li- 
nha 500. O jogador deve entao dizer que 
letra vai ser usada. Varias verificacoes 
evitam que se faca uma entrada ilegal. 
Em seguida, e preciso mover o marca- 
dor para a posicao desejada e pressio- 
nar (no Apple, pressione < EN- 
TER >). O programa verifica se a letra 



esta disponivel e faz um teste para ver 
se o palpite e eorreto. 

Caso o jogador erre o palpite, a li- 
nha 690 enviara uma mensagem, sub- 
traindo metade do valor da letra do to- 
tal de pontos. Se letra e posicao coinci- 
direm, a linha 700 emitira uma mensa- 
gem de felicitacdes e somara o valor da 
letra ao total de pontos do jogador. 
Quando a frase e completada, a linha 
710 envia o programa para a 730, que 
da a boa noticia ao jogador. 



A FRASE C0MPLETA 



Se o jogador for mais ambicioso, po- 
de querer adivinhar a frase inteira. Pa- 
ra isso, deve primeiro digitar ZZ. A li- 
nha 385 manda o programa para a linha 
900 (no Spectrum) ou 1000 (nos outros 
micros). A rotina pede que a frase seja 
digitada e a compara com a original. Se 
elas nao forern iguais, o jogador perde- 



ra cinqtienta pontos e o contador de ten- 
tativas sera incrementado. Se o palpite 
for eorreto, o valor de todas as letras 
ainda nao adivinhadas sera somado ao 
total de pontos, e a linha 730 avisara o 
jogador que a frase esta" correta. 



F1M DO J0G0 



Adivinhada a frase, o programa ve- 
rifica o numero de jogadas realizadas. 
Este nao pode ser maior que o determi- 
nado no inicio do jogo. Se o numero 
ainda for menor, o proximo jogador se- 
ra chamado, depois que uma nova fra- 
se tenha sido introduzida. Quando o jo- 
go acaba, o programa passa a linha 880, 
Os pontos sao comparados e o resulta- 
do final e apresentado. 

O jogo termina aqui, mas voce pode 
imptementar uma rotina do tipo "joga 
novamente?" para deixd-lo complete 
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rAfico: 



Os computadores da linha TK-2000 

dispoem de urn grande numero 

de caracteres grdficos que podem ser 

entrados diretamente pelo 

teclado, ou usados em urn programs. 



P 



As telas graficas no computador (GR 
e HGR) podem ser programadas por 
meio de diversas instructs extrema- 
mente poderosas, em media e aha reso- 
lucao, cais como VLIN, HLIN, PLOT, 
HPLOT, DRAW e outras. 

Entretanto, o TK-2000 tern um recur- 
so grafico adicional, habitualmente pou- 
co explorado, que os compativeis com 
a linha Apple nao tern. Trata-se dos ca- 
racteres grdfkos, que estao disponiveis 
para o programador atraves de dois 
meios: entrada direta pelo teclado e in- 
sercao por interm£dio da funcao CHR$, 
do BASIC. 

O que sao caracteres graficos? Como 
voce ja sabe, os caracteres que aparecem 
no video tem c6digos numericos intei- 
ros, que teoricamente podem variar en- 
tre e 255. Cada caractere correspon- 
de, portanto, a um byte da mem6ria de 
video. Parte dessa codificacao, conven- 
cionada internacionalmente, e o chama- 
do codigo ASCII, que vai de 32 a 126. 
Os codigos de a 3 1 sao normalmente 
utilizados em funcoes de controle do vi- 
deo e dependem do tipo de computador 
que esta sendo usado. 

O mesmo acontece com os c6digos 
que vao de 127 a 255. Nessa faixa, os 
fabricantes utilizam geralmente os codi- 
gos para acomodar caracteres graficos 
(que podem ser tipos especiais, como 
naipes de baralho, notas musicals etc., 
ou blocos graficos formando linhas, an- 
gulos e cantos). 



GRAFICOS DA ROM 



Tais caracteres graficos sao tambem 
chamados de graficos da ROM, pois ja 
vem pre-programados. Nos computado- 
res da linha TK-2000, os caracteres es- 
peciais ocupam a faixa da tabela de ca- 
racteres que vai de 193 a 242. 

Os sinais graficos que mais nos inte- 
ressarao neste artigo sao os blocos ge- 
ralmente utilizados na composicao de 
desenhos formados por linhas retas, tais 
como tabelas ou formularios de entra- 
da. A vantagem desses blocos consiste 
em simplificar a programacao, tornan- 
do desnecessaria a mistura da tela gri- 
fica com o texto. Tal simpltficacao dei- 
xa aberto o caminho para o emprego de 
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EM PROGRAMAS 
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GRAFICOS DA ROM 

COMO ENTRAR GRAFICOS 

PELO TECLADO 
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A FUNCAO CHRS 
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OS NAIPES DO BARALHO 
TABELA DE REFERENCIA 
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SIMPUFIQUE A PROGRAMACAO 




comandos mais diretos, como VTAB, 
HTAB, PRINT, INPUT etc. 



ENTRADA PELO TECLADO 



Da mesma maneira que os caracteres 
convencionais do cddigo ASCII (demar- 
cados sobre as teclas do microcomputa- 
dor), os sinais graficos podern ser digita- 
dos pelo tedado. Para isso, e necessa- 
rio, em primeiro lugar, pressionar simut- 
taneamente as tecias < CONTROL > e 

< B > . Esse procedimento coloca o te- 
dado em modo grafico. 

Em seguida, deve-se acionar simulta- 
neamente a tecla < SHIFT > , e uma das 
teclas alfanumericas, ou entao as tectas 

< SHIFT >, < CONTROL > e uma 
terceira. Com isso, o caiactere deseja- 
do aparece diretamente na tela (por 
exemplo, dentro de uma cadeia alfanu- 
merica). 

O manual de programacao do TK- 
2000 exibe um desenho esquematico do 
teclado, no qual sao assinalados todos 
os caracteres graficos, em relacao a dis- 
posicao das teclas. Consulte tambem a 
tabela que apresentamos a seguir. 

Ao se terminar de digitar os caracte- 
res graficos em uma linha, deve-se pres- 
sionar novamente < CONTROL > e 
<B>, para sair do modo grafico. 

Por exemplo, se quisermos digitar o 
simbolo tradicional do naipe de paus, 
devemos teclar < CONTROL ><B> 
e, em seguida, <SHIFTxR>. 

O programa abaixo demonstra como 
isso pode ser feito. Ele desenha uma ta- 
bela simples na tela.'utilizando blocos 
graficos e coloca depois os diversos no- 
mes digitados nas linhas da tabela. 



2DD HOME 

210 PRINT 

220 PRINT 

230 PRINT 

240 FOR 1-1 TO 10 

250 PRINT " I 

260 NEXT I 

270 PRINT * I 

275 TOR 1=1 TO 10 



Os tracos devem ser digitados nesta 
sequencia: 



NO. 


NOME 



J" 



280 VTAB 20: HTAB 1 

290 INPUT "NOME : "jNS 

300 VTAB 1+3: HTAB 4: PRINT I 

310 VTAB 1+3: HTAB 10: PRINT N3 

320 NEXT I 

330 VTAB 20: HTAB l:3TOP 



Linha 210 
<SHIFT> 
<SHIFT> 
<SHIFT> 
<SHIFT> 
<SHIFT> 
Linha 220 

< SHIFT > 
Linha 230 

< SHIFT > 

< SHIFT > 

< SHIFT > 
<SHIFT> 
<SHIFT> 
Linha 250 
Linha 270 
<SHIFT> 
<SHIFT> 
<SHIFT> 
<SHIFT> 
<SHIFT> 



< CONTROL > F (4 vezes) 

H 

< CONTROL > F(11 vezes) 

S 

<C0NTR0L> C 

<CONTROL> H 
<OONTROL> G (4 vezes) 
< CONTROL > B 
<CONTROL> G (11 vezes) 
< CONTROL > N 
: como a linha 220 



< CONTROL > F 14 veiesl 

G 

<CONTROL> Fill vezes) 

X 



Tamo na linha 220 quamo na linha 
250, os espacos em branco e as tetras po- 
dern ser digitados normalmente, sem 
precisar sair do modo grafico. Em ou- 
tras palavras: nas linhas que tern carac- 
teres graficos {210, 220, 230, 250 e 270), 
basta pressionar < CONTROL >< B > 
uma vez, logo apos digitar o sinal de 
abre aspas; em seguida, teclar os grafi- 
cos e/ou as letras, e novamente < CON- 
TROL >< B> . So depois disso, digita- 
se o sinal de fecha aspas. 

Existem duas desvantagens nessa for- 
ma de entrada de caracteres graficos; 
primeiro, as teclas nao tem qualquer 
marcacao que auxilie o usuario a encon- 
trar o grafico correto. Toma-se neces- 
sario entao consultar o manual, o que 
faz o processo bastante moroso. Em se- 
gundo lugar, o programa nSo pode ser 
listado em uma impressora n£o grafica, 
ou que nao seja especffica para a linha 
TK-2000. 



CARACTERES GRAFICOS NO PROGRAMA 



Existe ainda um outro truque para es- 
pecificar caracteres graficos dentro de 
um programa sem precisar digha-los di- 
retamente. A funcSo que permite fazer 
isso e a utilissima CHRS. 

Os caracteres normais, especiais e 
graficos com codigos na faixa de 32 a 
255 podem ser impressos na tela a par- 



5 
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tir de urn programs, coniendo a CHRS 
acompanhada do numero de cddigo do 
caractere desejado. Por exemplo, para 
imprimir na tela o simbolo de paus (nai- 
pe de baralho), digitamos: 

PRINT CHR3(242) ;CHR$(231) 

Portanto, para combinar c6digos gra- 
ficos com a fungao CHRS, e preciso 
"avisar" o computador que o codigo se- 



ra usado como grafico. Para isso, recor- 
remos a dois bytes: CHR$(242), segui- 
do de CHRS(n), onde n e o codigo do 
caractere grafico na tabela. O pr6ximo 
programa mostra a tabela de correspon- 
dence entre cddigos numericos e grafi- 
cos na tela do TK-2000: 

10 HOME 

20 FOR J=193 TO 242 STEP 6 

30 FOR I=J TO J+5 



P 



Cddigo 


CARACTERES GRAFICOS PARA TK-2000 

Teclas Caractere 218 CONTROL SHIFT V 


□ 


193 


CONTROL SHIFT 1 


□ 


219 


CONTROL SHIFT C 


ni 


194 


CONTROL SHIFT 2 


□ 


220 


CONTROL SHIFT J 





195 


CONTROL SHIFT 3 


LJ 


221 


CONTROL SHIFT M 




196 


CONTROL SHIFT 4 


H 


222 


SHIFT T 


t 


197 


CONTROL SHIFT 5 


m 


223 


SHIFT J 





198 


CONTROL SHIFT 6 


m 


224 


SHIFT G 


g 


199 


CONTROL SHIFT 7 


■ 


225 


SHIFT H 


B 


200 


CONTROL SHIFT 


□ 


226 


SHIFT B 


ffi 


201 


CONTROL SHIFT W 


n 


227 


SHIFT N 


OB 


202 


CONTROL SHIFT E 


j 


228 


SHIFT Q 


* 


203 


CONTROL SHIFT R 


i 


229 


SHIFT W 


V 


204 


CONTROL SHIFT T 


■ 


230 


SHIFT E 


♦ 


205 


CONTROL SHIFT Y 


■ 


231 


SHIFT R 


9 


206 


CONTROL SHIFT U 


■ 


232 


SHIFT D 


lr 


208 


CONTROL SHIFT G 


E 


233 


SHIFT F 


a 


209 


CONTROL SHIFT H 


L 


234 


SHIFT C 


El 


210 


CONTROL SHIFT B 


* 


235 


SHIFT V 


H 


211 


CONTROL SHIFT N 


E 


236 


SHIFT A 


a 


212 


CONTROL SHIFT A 


A 


237 


SHIFTS 


□ 


213 


CONTROL SHIFT S 


fc 


238 


SHIFT Z 


□ 


214 


CONTROL SHIFT Z 


^ 


239 


SHIFT X 


□ 


215 


CONTROL SHIFT X 


E 


240 


SHIFT U 


m 


216 


CONTROL SHIFT 


□ 


241 


SHIFT Y 


BB 


217 


CONTROL SHIFT F 


- 


242 


SHIFT M 


EB 




40 PRINT I;" "; CHRS (242) ;CHR$( 

I) i" ": 

50 NEXT I 

60 PRINT 

7 NEXT J 

80 VTAB 20:HTAB 1: PRINT 

"PRESSIONE RETURN" 

90 GET A$ 

Os caracteres sao impressos ordena- 
damente em fileiras, por meio dos dois 
lacos que comecam nas linhas 20 e 30. 
O primeiro laco varia J de 1 93 a 242 (fai- 
xa de cbdigos correspondente aos carac- 
teres graficos), de 6 em 6. O laco seguin- 
te percorre todos os valores entre J e 
J + 5. O PRINT da linha 60 serve para 
encerrar uma fileira de seis cddigos e 
suas representagoes graficas, que sao 
mostradas na linha 40. 



PROGRAMACAOBASt 




Se quiser usar caracteres graficos com 
certa freqiiencia em urn programa, de- 
ve armazenar o codigo de controle em 
uma variavel alfanumerica, como no 
exemplo abaixo. Neste caso, os quatro 
simbolos dos naipes do baralho sao ar- 
mazenados em N$ e seus nomes, em E$: 

5 HOME 

10 FOR 1-1 TO 4 

20 READ ES f I ) 

30 LET NS(I)=CHR$(242)+ 

CHRS(227+I) 

40 PRINT NS(I) ,E$(I) 

50 NEXT I 

60 DATA ESPADAS.COPAS.OUROS, 

PAUS 

Assim, toda vez que precisarmos im- 
piimir na tela urn dos quatro simbolos, 



digitaremos PRINT N$(N), onde N e o 
c6digo do naipe (1 = espadas, 2 = copas, 
3 = ouros e 4 = paus). 

Do mesmo modo quando quisermos 
utilizar uma cadeia de caracteres grafi- 
cos em varios pontos de um programa, 
devemos armazena-lo em uma variave! 
alfanumerica. Como o TK-2000 nao tem 
a funcao STRINGS, que permite fazer 
isso com um tinico comando, e preciso 
escrever um laco de acumulacao: 

10 HOME 

20 INPUT "CODIGO GRAFICO 

(193-242) : *| C 

30 INPUT "COMPRXMENTO (1-39) : 

"iL 

40 PRINT: PRINT r PRINT 

50 LET 33="" 



60 FOR 1-1 TO L 

70 LET S3-SS+CHR3<242>+CHR$(C) 

80 NEXT I 

90 PRINT S3 

100 GOTO 10 

A cadeia alfanumerica SS tem L ve- 
zes dbis c6digos, pois e necessario en- 
trar um cOdigo 242 antes de cada codi- 
go grafico C (nao funciona colocar ape- 
nas um c6digo 242 como primeiro ca- 
ractere de SS). Se rodar esse programa 
com varios codigos ao acaso — ou en- 
trando-os em seqiiencia para ver o rc- 
sultado — , constatara que as vezes sur- 
ge uma interferencia na tela inteira. Se 
isso ocorrer, experimente interromper 
o programa, usando < CONTROL > 
<C> e digitando RUN novamente. 



■ 



W6RAMACA0BASI 




TiCNlCAS Dl 
NACAO 



Todas as tecnicas usadas para colo- 
car dados em ordem apontam falhas, se- 
ja por dispenderem muito tempo, seja 
por exigirenn um grande espaco de me- 
m6ria. Dessa forma, em cada aplicac§o 
especifica e preciso procurar o nietodo 
de ordenacao mais eficiente, pois n5o 
existe uma tecnica ideal que responda a 
todas as necessidades. 

Ja estudamos alguns dos metodos 
mais populares de ordenacao de dados; 
a seguir, mostraremos outros, com a res- 
salva de que alguns deles sao apenas re- 
finamentos dos que foram apresentados 
anteriormente. Como voc€ vera, estes 
sao bem mais eficientes do que as ver- 
s6es originals. 



SUBSTITU1?A0 RETARDADA 



O principal defeito da ordenacao ti- 
po bolha — a lentidao — torna-se par- 
ticularmente evidente quando e preciso 
organizar uma grande quantidade de 
itens, No entamo, com uma pequena 
modificacao no algoritmo original, 
pode-se reduzir o tempo gasto pratica- 
mente a metade. 

A ordenacao tipo bolha usa boa parte 
do tempo em comparar os diversos nu- 
meros da linha, trocando-os de posicao 
at£ encontrar um valor maior. Nesse 
processo, varias trocas sao feitas com 
grande dispSndto de tempo. 

A rotina de substituic&o retardada 
funciona de modo semelhante, mas di- 
fere no fato de que nenhuma troca e rea- 
lizada ate que toda a linha tenha sido 
comparada. Vejamos um exemplo que 
emprega uma sequencia similar aquela 
estudada no artigo Ordenacao pelo M4- 
todo de Bolhas (pagina 292): 



ink 10 



f ltn 



P 



67 35 72 19 47 38 11 86 

O primeiro valor, 67, e comparado 
(mas nao trocado) com 35, como acon- 
teceria na rotina de bolha normal; o 
mesmo acontece em relacio ao primei- 
ro mimero maior que ele, 72. Este ulti- 
mo e tornado como o novo maior nii- 
mero e comparado sucessivamente com 
19, 47, 38 e 11 , antes de encontrar o va- 
lor maximo da sequSncia: 86. Este per- 



manece na ultima posicao. O quadro 
que se segue mostra como tudo aconte- 
ce, passo a passo. Alguns numeros apa- 
recem entre colchetes. O primeiro deles 
e 86, o maior valor da primeira sequen- 
cia. Nas proximas hnhas, os colchetes 
assinalam o maior mimero incorreta- 
mente localizado e o valor que ocupa seu 
lugar. Esses numeros sao trocados na li- 
nha seguinte. Assim, na segunda linha, 
72 e identificado como o maior incor- 
retamente posicionado, e trocado com 
o 1 1, e assim por diante. 
infcio fim 



67 

67 

[67 

38 



35 72 19 47 38 11[86] 

35 [72} 19 47 38 [11] 86 

35 11 19 47 [38] 72 86 

35 11 19 [47] 67 72 86 



67 


72 


86 


67 


72 


B6 


67 


72 


B6 


67 


72 


86 



[36] 35 11 [19] 47 
19 [35][11] 38 47 

[19H11] 35 38 47 
11 19 35 38 47 



O niimero de comparacoes feito e o 
mesmo da rotina tipo bolha, mas o de 
trocas e muito menor. 

Uma parte do programa a seguir e 
igual a um dos programas que aparecem 
no artigo Rotinas de Ordenagdo. Para 
executd-lo, basta adicionar as linhas de 
4000 em diante (cuidado para nao con- 
fundir a letra I com o mimero 1 , ao fa- 
zer a digitacao), Os usuarios do Apple 
e do MSX devem fazer as modificacoes 
no programa principal conforme o in- 
dicado para todas as maquinas. 



10 POKE 23658,8: LET T-0: 

INPUT "NUMERO DE ITENS "sAA: 

IF AA<2 THEN GOTO 10 

15 DIM A(AA) 

2 PRINT : PRINT "TABELA DESO 

RDENADA" : PRINT 

30 FOR 2-1 TO AA 

40 LET A(Z)-INT (RND*100)+1 

50 PRINT TAB T;A(Z);: LET T-T 

+4: IF T>30 THEN LET T-0 

60 NEXT Z 

70 PRINT : PRINT : PRINT "PRE 

SSIONE '0' PARA ORDENAR* 

60 LET KS-INKEYS: IF K$<>"0" 

THEN GOTO 80 

90 GOSUB 400 
100 PRINT : PRINT "TABELA ORDE 
NAD A" : PRINT 
110 LET T*0: FOR 2-1 TO AA 



Veja como pequenos methoramentos nas 

rotinas de ordenacao mais 

comuns podem aurnentar sua velocidade 

de operacao. E conheca 

uma rotina que bate todas as outras. 




120 PRINT TAB T;A(Z);: LET T-T 
+4: IF T>30 THEN LET T-0 
130 NEXT 2 
140 GOTO 10 

3999 REM OHDENACAO POR SUBSTIT 
UICAO RETARDADA 

4000 FOR 1-1 TO AA-1 
4010 LET K-I 

4020 FOR J-I+l TO AA 

4030 IF A(J)<A{K) THEN LET K=J 

4040 NEXT J 

4050 IF IOK THEN LET T=A{K>: 

LET A(K)-A(I) : LET A(I)-T 

4060 NEXT T 

4 070 RETURN 

10 PRINT: PRINT: INPUT "NUMERO DE 
ITENS" ;AA: IF AA<2 THEN 10 

15 DIM A(AA) 

20 PRINT :PRINT"TABELA DESORDENA 

DA": PRINT 

30 FOR Z-l TO AA 

40 A(Z)-RNDUOO) 

50 PRINT A(Z) ; 

60 NEXT Z 

70 PRINT: PRINT: PRINT "PRESSIONE 
*0' PARA ORDENAR" 

80 KS-INKEYS: IF K3<>"0* THEN 80 

90 GOSUB 4000 

100 PRINT: PRINT: PRINT "TABELA 

RDENADA" 

110 PRINTiFOR Z-l TO AA 



'ROGRAMACAO BAS, 




lllllll: 



O R DENACAO POR 

SUBSTITUI C AQ RETARDADA 

ORDENACAO POR 



ESPALHAMENTO: FAZ QUE 
SE FARIA MANUALMENTE 



rAPIOA E SIMPLES: 

A ORDENACAO DO JOGADOR DE 
CARTAS O U POR INSE RQAO 



ORDENA C AO INSTANTANEA: 



A MAIS RAPIDA DE TODAS 




120 PRINT A{Z) ; 
130 NEXT Z 
140 RUN 

3999 ORDENACAO POR SDBSTITUICAO 
ftETARDADA 

4000 FOR 1-1 TO AA-1 
4010 K-I 

4020 FOR J-I+l TO AA 

4030 IF A(JKMK) THEN K-J 

4040 NEXT J 

4050 IF IOK THEN T-A(K) : A (K) -A 

(I) :A(I)-T 

4060 NEXT I 

4070 RETURN 

m 

Para que o programa acima rode no 
MSX substitua as seguintes linhas: 

5 R-RND(-TIME) 

40 A(Z)-INT{RND[1)*100+.U 

SO PRINTA(Z) . 

120 PRINTA{Z}. 

4050 IF IOK THEN SWAP A(K) 

) 



A<I 



mts] 



Para que o programa acima rode nos 
micros da linha Apple II e TK-2000, 
substitua as linhas a seguir: 

40 A(Z)-INT(RND(1) *100+1) 



50 PRINTA(Z) , 

60 GET K$:IF KSO* 

120 PRINTA(Z) , 



O" THEN 60 



ORDENACAO POR ESPALHAMENTO 



A ordenacjto por espalhamento e ou- 
tra rotina cuja velocidade se aproxima 
a da ordenagao tipo bolha quando am- 
bas sSo usadas para listas parcialmente 
ordenadas, Neste caso, uma matriz se- 
cundaria e criada para uma ordenaeao 
preliminar parcial. Os valores iniciai e 
final sSo determinados no initio, en- 
quanto outros itens s6'podem ser adi- 
cionados a lista quando esta estiver to- 
talmente ordenada. 

Embora essa rotina seja relativamen- 
te rapida, o uso de uma matriz secun- 
daria para armazenar dados diminui a 
mem6ria disponfvel do micro. 

Note que se deve especificar o valor 
maximo, o que € feito por meio da li- 
nha 5010. No nosso caso, esse valor e 
100, que 6 o maior mimero aleatorio 
permitido na linha 40. 

Adicione as linhas seguintes ao pri- 
meiro programa; 



90 


GOSUB 5000 






4999 


REM ORDENACAO POR ESPALHAM 


F.NTO 








5000 


DIM BU.2*AA+.10) 




5010 


FOR J-l TO AA: 


LET K 


■INT t 


ACJ)*AA/100)+1 






5020 


IF BCK)-0 THEN 


LET 


3(K)-A 


U) ! 


NEXT J: GOTO 5040 




5030 


LET K-K+l: GOTO 5020 




5040 


LET J-l: FOR K- 


■1 TO 


1. .2*AA 


+ .10: 


IF BCKi-0 THEN 


NEXT 


K: GO 


TO 5060 






5050 


LET AU)-B(K) : 


LET J 


■J + l : 


NEXT 


K 






5060 


FOR J-AA-1 TO 


L STEP 


-1: L 


ET F- 


— 1 






5070 


FOR K-l TO J 






5080 


IF ACK)>A(K+1) 


THEN 


LET F 


-0: 1 


.ET T-A(K} : LET 


A(K)- 


MK+U 


: LET A(K+1)-T 






5090 


NEXT K: IF F-0 


THEN 


NEXT 


Ji RETURN 







4999 REM **0RDENACA0 FOR EBPALH 
AMENTO** 

5000 DIM B(1.2*AA+3Q) 

5010 FOR J-l TO AA:K-INT(A(J)*A 

A/100) +1 

5020 IF B(K)-0 THEN B(K)-A(J):N 

EXT;GOTO 5040 

5030 K-K+l:GOTO 5020 

5040 J-l: FOR K-l TO 1.2*AA+30:I 

F B(K)-0 THEN NEXT:OOTO 5060 

5050 A(J)-B(K) :J-J+1:NEXT 

5060 FOR J-AA-2 TO 1 STEP -1:F- 

-1 

5070 FOR K-l TO J+l 

5060 IF A(K)>A(K+1) THEN F-0:T- 

A(K) :A{K)-A(K+1) :A(K+1)-T 

5090 NEXT: IF F-0 THEN NEXT 

5100 RETURN 

Os usuarios do MSX podem trocar a 
segunda metade da linha 5080, que faz 
a troca de valores entre as variaveis A(K) 
e A(K + 1) para SWAP A(K), A{K + I). 
O valor 1 .2 na linha 5000 pode ser ajus- 
tado para fornecer o espaco necessario 
a matriz. Essa rotina de ordenaeao imi- 
ta, de certa forma, a maneira normal- 
mente usada para ordenar um grupo de 
informacdes: uma vez misturados os da- 
dos, e determinados o maior e o menor 
valor, tudo vai sendo posicionado con- 
forme as prioridades. 



ORDENACAO POR INSERCAO 



Uma opcio para muitas aplicacoes i 
a rotina de ordenac&o por insercao. Su- 
pondo que os niimeros abaixo sejam 
cartas de baralho, disponha-os na or- 
dem dada, da esquerda para a direita: 
esq. dir. 



O processo comeca a partir da es- 
querda (ou pelo primeiro valor da lista 
a ser ordenada). Ele procura pela pri- 
meira ocorrSncia de um mimero menor 
fora de ordem, Um rapido exame de li- 
nha mostta o 4 fora de lugar. Ele e en- 
tao reposicionado (inserido) antes do 9, 
formando a nova seqiiSntia: 



esq. 



dlr . 



QQSH^ 



90 GOSUB 5000 



4 9 5 7 2 

As cartas 4 e 9 estSo agora na seqiien- 
cia correta, mas, quando incluimos os 
outros niimeros (5, 7 e 2) em nossa ob- 



servacao, a ordem desaparece. A cada 
passada, contudo, as cartas vao sendo 
reordenadas, ate que alcancemos a se- 
qiiencia correta: 
e sq . d i r . 



E, para completar; 



4 

4 
4 
2 



7 

7 
9 
7 



Como se pode ver, nao ha aqui se- 
paracao de grupos ou comparacoes par 
a par de vaiores, como na maioria dos 
metodos ja estudados: as cartas (niinie- 
ros) sao alinhadas da esquerda para a di- 
reita em ordem crescente, depots de al- 
gumas trocas de posicao. 

Esse processo i muito semelhante ao 
usado por um jogador de baralho ao 
analisar e ordenar uma mao de cartas, 
De fato, a ordenacao por insercao e 
tambem conhecida como ordenacao do 
jogador de cartas. 

Vejarnos agora um grupo de nume- 
ros um pouco maior, num estagio em 
que alguns vaiores ja Toram ordenados: 

grupo nao ordenado g. ordenado 

34 

47 

59 

87 

102>> >>>>>> 

26 144 

73 167 

193 

O numero 102 e colocado na sua po- 
sicao correta e a rotina prossegue des- 
locando os vaiores remanescentes: 

grupo nao ordenado g. ordenado 

26> >>>>>>> 

73 34 

193 47 

59 

87 

102 

144 

167 

Em seguida, o numero 73 e inserido 
na sua posicao; resta agora, como se po- 
de observar, apenas um valor nao or- 
denado: 

grupo nao ordenado g. ordenado 

26 

34 

47 

59 

73 >>>>>>>> 

193 87 

102 

144 

167 



26 

34 

47 

59 

73 

87 

102 

144 

167 

193 >>>>>>>> 

Adicione as linhas abaixo ao progra- 
ma de demonstraeao para observar a ve- 
locidade dessa rotina de ordenagao: 



90 GOSUB 6000 

5999 HEM ORDENACAO POR INSERCAO 

6000 FOR r=l TO AA-1 
6010 LET K»A(I+1» 

6020 FOR. J = I TO 1 STEP -1 

6030 IF K>-A(J) THEN GOTO 6070 

6040 LET A(J+1)=A(J) 

6050 NEXT J 

6060 LET J=0 

6070 LET A{J+1)=K 

6080 NEXT I: RETURN 

ElQMBJuD 

90 GOSUB 6000 

5999 REM **ORDENACAQ POR INSEBC 
AO** 

6000 FOR 1-1 TO AA-1 
6010 K-A(I+1) 

6020 FOR J-I TO 1 STEP -1 

6030 IF K>=A(J) THEN 6070 

6040 ACJ+U-ACJ) 

6050 NEXT J 

6060 J-0 

6070 ACJ+D-K 

6080 NEXT I: RETURN 

O valor da variavel K e o proximo nu- 
mero da lista nao ordenada a ser com- 
parado. O laco externo que comeca na 
linha 6000 "varre" a lista ordenada, 
passando dos menores para os maiores 
vaiores, ate encontrar a posicao para K. 
Entao, a rotina das linhas 6020 a 6050 
expande a lista ordenada para que haja 
lugar para o novo item. O programs 
continua ate que todos os vaiores da lis- 
ta nao ordenada tenham sido colocados 
nos seus lugares. 



ORDENACAO INSTANTANEA 



Embora seja considerada bastantc ra- 
pida, a rotina de ordenacao por inser- 
cao parece lenta quando comparada 
com a rotina de ordenacao instantanea 
(ou quicksort, se voce* preferir). Esta ul- 
tima, contudo, alem de ser complexa, 
exigc muito espaco de memoria, Assirn, 



ela nao € encontrada com grande fre- 
qiiencia em programas especialmente 
desenhados para as limkadas memorias 
dos micros domisticos. 

Seja como for, a ordenacao instan- 
tanea e, sem diivida, a mats veloz de to- 
das as rotinas que ja examinamos ate 
agora. Alem disso, eia vai mats longe do 
que uma simples rotina de comparacao 
e troca. E, embora seu algoritmo seja 
bastante complexo (a ponto de nao po- 
dermos explica-lo aqui), vale a pena 
eonhece-la e usa-ia! 



90 GOSUB 7000 

6999 REM ORDENACAO INSTANTANEA 

7000 LET K-0: LET 1-0: DIM S (AA 

) 

7010 LET S(I+1>-1: LET S(T+2)»A 

A 

7020 LET K-K+l 

7030 IF K=0 THEN RETURN 

7040 LET K-K-l; LET I-K+K 

7050 LET A-S{I+1): LET B=S(I+2) 

7060 LET Z-A(A) : LET U=A: LET L 

= B+1 

7070 LET L-L-l 

7080 IF L=U THEN GOTO 7150 

7090 IF ZOA(L) THEN GOTO 7070 

7100 LET A(U)-A(L) 

7110 LET U-U+l 

7120 IF L-U THEN GOTO 7150 

7130 IF Z>=A(U) THEN GOTO 7110 

7140 LET A(L)=A(U): GOTO 7070 

7150 LET A(U}-Z 

7160 IF B-U>=2 THEN LET I=K+K: 

LET S(I+1)=U+1: LET S(I+2)=B: 
LET K=K+1 
7170 IF L-A>-2 THEN LET I=K+K: 

LET S(I+1)=A: LET S(I+2)=L-1: 
LET K-K+l 
7180 GOTO 7030 

DEBMSDuS] 

90 GOSUB 7000 

6999 REM **0RDENACA0 INSTANTANE 
A** 

7000 K-0:I-0rDIM S tAA) 
7010 S(I+l)-l:S(r+2)-AA 
7020 K-K+l 

7030 IF K-0 THEN RETURN 

7040 K-K-l r I-K+K 

7050 A=S(I+1) :B-S(I+2) 

7060 Z-A(A) :U-A:L-B+1 

7070 L-L-l 

7080 IF L=U THEN 7150 

7090 IF ZC=A(L) THEN 7070 

7100 AfU)-A(L) 

7110 U-U+l 

7120 IF L-U THEN 7150 

7130 IF Z>-A(U) THEN 7110 

7140 A(L)-A(U) :GOTO 7070 

7150 A(U)-Z 

7160 IF B-U>-2 THEN I-K+K:SU+1 

]-U+l:S(I+2)-B:K-K+l 

7170 IF L-A>-2 THEN I-K+K:S{I+1 

>=A:S(I+2)-L-l:K-K+l 

7180 GOTO 7030 
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PROGRAMACAO DE JOGOS 

Programar o jogo do Otelo e relativamente f£cil. Difi'cil e 
preparar uma estrategia para derrotar o computador. 

PROGRAMACAO BASIC 

Aprenda a converter partituras musicais em linhas de 
programas BASIC e ouca as suas cancoes preferidas. 

CODIGO DE MAQUINA 

Comece agora a programar um videogame completo: participe do 
jogo Avalanche e aprenda mais sobre codigo de mdquina. 
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